home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / HENSA / MATHS / PLPLOT / PLPLOT.ZIP / src / stubc / scstubs.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-05-10  |  8.3 KB  |  589 lines
  1. /* $Id: scstubs.c,v 1.19 1994/07/20 06:08:03 mjl Exp $
  2.  * $Log: scstubs.c,v $
  3.  * Revision 1.19  1994/07/20  06:08:03  mjl
  4.  * Added Fortran interface routines to handle the new 3d functions plline3(),
  5.  * plpoin3(), and plpoly3().
  6.  *
  7.  * Revision 1.18  1994/03/23  08:39:10  mjl
  8.  * Fixed some stubs to the cmap 1 handlers.
  9.  *
  10.  * Revision 1.17  1993/12/06  07:47:34  mjl
  11.  * Changed routine names used in new color model.
  12.  *
  13.  * Revision 1.16  1993/11/15  08:40:57  mjl
  14.  * Added stub for PLSCOLBG.
  15.  *
  16.  * Revision 1.15  1993/10/21  19:27:07  mjl
  17.  * Changed all names that ended with an underscore (as part of the C/Fortran
  18.  * linkage) to end with a '7' instead, to avoid problems with f2c.
  19. */
  20.  
  21. /*    scstubs.c
  22.  
  23.     C stub routines.
  24.  
  25.     The stubs contained here are the ones that are relatively simple,
  26.     i.e. involving only a call convention change or integer-to-string
  27.     conversion.
  28. */
  29.  
  30. #include "plstubs.h"
  31.  
  32. void
  33. PLADV(PLINT *sub)
  34. {
  35.     c_pladv(*sub);
  36. }
  37.  
  38. void
  39. PLAXES7(PLFLT *x0, PLFLT *y0, char *xopt, PLFLT *xtick,
  40.     PLINT *nxsub, char *yopt, PLFLT *ytick, PLINT *nysub)
  41. {
  42.     c_plaxes(*x0, *y0, xopt, *xtick, *nxsub, yopt, *ytick, *nysub);
  43. }
  44.  
  45. void
  46. PLBIN(PLINT *nbin, PLFLT *x, PLFLT *y, PLINT *center)
  47. {
  48.     c_plbin(*nbin, x, y, *center);
  49. }
  50.  
  51. void
  52. PLBOP()
  53. {
  54.     c_plbop();
  55. }
  56.  
  57. void
  58. PLBOX(char *xopt, PLFLT *xtick, PLINT *nxsub,
  59.        char *yopt, PLFLT *ytick, PLINT *nysub)
  60. {
  61.     c_plbox(xopt, *xtick, *nxsub, yopt, *ytick, *nysub);
  62. }
  63.  
  64. void
  65. PLBOX7(char *xopt, PLFLT *xtick, PLINT *nxsub,
  66.        char *yopt, PLFLT *ytick, PLINT *nysub)
  67. {
  68.     c_plbox(xopt, *xtick, *nxsub, yopt, *ytick, *nysub);
  69. }
  70.  
  71. void
  72. PLBOX37(char *xopt, char *xlabel, PLFLT *xtick, PLINT *nxsub,
  73.     char *yopt, char *ylabel, PLFLT *ytick, PLINT *nysub,
  74.     char *zopt, char *zlabel, PLFLT *ztick, PLINT *nzsub)
  75. {
  76.     c_plbox3(xopt, xlabel, *xtick, *nxsub,
  77.          yopt, ylabel, *ytick, *nysub,
  78.          zopt, zlabel, *ztick, *nzsub);
  79. }
  80.  
  81. void
  82. PLCOL0(PLINT *icol)
  83. {
  84.     c_plcol0(*icol);
  85. }
  86.  
  87. void
  88. PLCOL1(PLFLT *col)
  89. {
  90.     c_plcol1(*col);
  91. }
  92.  
  93. /* The old way, same as plcol0 */
  94.  
  95. void
  96. PLCOL(PLINT *icol)
  97. {
  98.     c_plcol0(*icol);
  99. }
  100.  
  101. void
  102. PLEND()
  103. {
  104.     c_plend();
  105. }
  106.  
  107. void
  108. PLEND1(void)
  109. {
  110.     c_plend1();
  111. }
  112.  
  113. void
  114. PLENV(PLFLT *xmin, PLFLT *xmax, PLFLT *ymin, PLFLT *ymax,
  115.       PLINT *just, PLINT *axis)
  116. {
  117.     c_plenv(*xmin, *xmax, *ymin, *ymax, *just, *axis);
  118. }
  119.  
  120. void
  121. PLEOP()
  122. {
  123.     c_pleop();
  124. }
  125.  
  126. void
  127. PLERRX(PLINT *n, PLFLT *xmin, PLFLT *xmax, PLFLT *y)
  128. {
  129.     c_plerrx(*n, xmin, xmax, y);
  130. }
  131.  
  132. void
  133. PLERRY(PLINT *n, PLFLT *x, PLFLT *ymin, PLFLT *ymax)
  134. {
  135.     c_plerry(*n, x, ymin, ymax);
  136. }
  137.  
  138. void
  139. PLFAMADV(void)
  140. {
  141.     c_plfamadv();
  142. }
  143.  
  144. void
  145. PLFILL(PLINT *n, PLFLT *x, PLFLT *y)
  146. {
  147.     c_plfill(*n, x, y);
  148. }
  149.  
  150. void
  151. PLFLUSH(void)
  152. {
  153.     c_plflush();
  154. }
  155.  
  156. void
  157. PLFONT(PLINT *font)
  158. {
  159.     c_plfont(*font);
  160. }
  161.  
  162. void
  163. PLFONTLD(PLINT *charset)
  164. {
  165.     c_plfontld(*charset);
  166. }
  167.  
  168. void
  169. PLGCHR(PLFLT *chrdef, PLFLT *chrht)
  170. {
  171.     c_plgchr(chrdef, chrht);
  172. }
  173.  
  174. void
  175. PLGFAM(PLINT *fam, PLINT *num, PLINT *bmax)
  176. {
  177.     c_plgfam(fam, num, bmax);
  178. }
  179.  
  180. void
  181. PLGFNAM7(char *fnam)
  182. {
  183.     c_plgfnam(fnam);
  184. }
  185.  
  186. void
  187. PLGPAGE(PLFLT *xpmm, PLFLT *ypmm, PLINT *xwid, PLINT *ywid,
  188.     PLINT *xoff, PLINT *yoff)
  189. {
  190.     c_plgpage(xpmm, ypmm, xwid, ywid, xoff, yoff);
  191. }
  192.  
  193. void
  194. PLGRA()
  195. {
  196.     c_plgra();
  197. }
  198.  
  199. void
  200. PLGSPA(PLFLT *xmin, PLFLT *xmax, PLFLT *ymin, PLFLT *ymax)
  201. {
  202.     c_plgspa(xmin, xmax, ymin, ymax);
  203. }
  204.  
  205. void
  206. PLGSTRM(PLINT *strm)
  207. {
  208.     c_plgstrm(strm);
  209. }
  210.  
  211. void
  212. PLGVER(char *ver)
  213. {
  214.     c_plgver(ver);
  215. }
  216.  
  217. void
  218. PLGVER7(char *ver)
  219. {
  220.     c_plgver(ver);
  221. }
  222.  
  223. void
  224. PLGXAX(PLINT *digmax, PLINT *digits)
  225. {
  226.     c_plgxax(digmax, digits);
  227. }
  228.  
  229. void
  230. PLGYAX(PLINT *digmax, PLINT *digits)
  231. {
  232.     c_plgyax(digmax, digits);
  233. }
  234.  
  235. void
  236. PLGZAX(PLINT *digmax, PLINT *digits)
  237. {
  238.     c_plgzax(digmax, digits);
  239. }
  240.  
  241. void
  242. PLHIST(PLINT *n, PLFLT *data, PLFLT *datmin, PLFLT *datmax,
  243.        PLINT *nbin, PLINT *oldwin)
  244. {
  245.     c_plhist(*n, data, *datmin, *datmax, *nbin, *oldwin);
  246. }
  247.  
  248. void
  249. PLHLS(PLFLT *hue, PLFLT *light, PLFLT *sat)
  250. {
  251.     c_plhls(*hue, *light, *sat);
  252. }
  253.  
  254. void
  255. PLINIT(void)
  256. {
  257.     c_plinit();
  258. }
  259.  
  260. void
  261. PLJOIN(PLFLT *x1, PLFLT *y1, PLFLT *x2, PLFLT *y2)
  262. {
  263.     c_pljoin(*x1, *y1, *x2, *y2);
  264. }
  265.  
  266. void
  267. PLLAB(char *xlab, char *ylab, char *title)
  268. {
  269.     c_pllab(xlab, ylab, title);
  270. }
  271.  
  272. void
  273. PLLAB7(char *xlab, char *ylab, char *title)
  274. {
  275.     c_pllab(xlab, ylab, title);
  276. }
  277.  
  278. void
  279. PLLINE(PLINT *n, PLFLT *x, PLFLT *y)
  280. {
  281.     c_plline(*n, x, y);
  282. }
  283.  
  284. void
  285. PLLINE3(PLINT *n, PLFLT *x, PLFLT *y, PLFLT *z)
  286. {
  287.     c_plline3(*n, x, y, z);
  288. }
  289.  
  290. void
  291. PLLSTY(PLINT *lin)
  292. {
  293.     c_pllsty(*lin);
  294. }
  295.  
  296. void
  297. PLMTEX7(char *side, PLFLT *disp, PLFLT *pos, PLFLT *just, char *text)
  298. {
  299.     c_plmtex(side, *disp, *pos, *just, text);
  300. }
  301.  
  302. void
  303. PLPAT(PLINT *nlin, PLINT *inc, PLINT *del)
  304. {
  305.     c_plpat(*nlin, inc, del);
  306. }
  307.  
  308. void
  309. PLPOIN(PLINT *n, PLFLT *x, PLFLT *y, PLINT *code)
  310. {
  311.     c_plpoin(*n, x, y, *code);
  312. }
  313.  
  314. void
  315. PLPOIN3(PLINT *n, PLFLT *x, PLFLT *y, PLFLT *z, PLINT *code)
  316. {
  317.     c_plpoin3(*n, x, y, z, *code);
  318. }
  319.  
  320. void
  321. PLPOLY3(PLINT *n, PLFLT *x, PLFLT *y, PLFLT *z, PLINT *draw)
  322. {
  323.     c_plpoly3(*n, x, y, z, draw);
  324. }
  325.  
  326. void
  327. PLPREC(PLINT *setp, PLINT *prec)
  328. {
  329.     c_plprec(*setp, *prec);
  330. }
  331.  
  332. void
  333. PLPSTY(PLINT *patt)
  334. {
  335.     c_plpsty(*patt);
  336. }
  337.  
  338. void
  339. PLPTEX7(PLFLT *x, PLFLT *y, PLFLT *dx, PLFLT *dy, PLFLT *just, char *text)
  340. {
  341.     c_plptex(*x, *y, *dx, *dy, *just, text);
  342. }
  343.  
  344. void
  345. PLRGB(PLFLT *red, PLFLT *green, PLFLT *blue)
  346. {
  347.     c_plrgb(*red, *green, *blue);
  348. }
  349.  
  350. void
  351. PLRGB1(PLINT *r, PLINT *g, PLINT *b)
  352. {
  353.     c_plrgb1(*r, *g, *b);
  354. }
  355.  
  356. void
  357. PLSASP(PLFLT *aspect)
  358. {
  359.     c_plsasp(*aspect);
  360. }
  361.  
  362. void
  363. PLSCHR(PLFLT *def, PLFLT *scale)
  364. {
  365.     c_plschr(*def, *scale);
  366. }
  367.  
  368. void
  369. PLSCMAP0(PLINT *r, PLINT *g, PLINT *b, PLINT *ncol0)
  370. {
  371.     c_plscmap0(r, g, b, *ncol0);
  372. }
  373.  
  374. void
  375. PLSCMAP1(PLINT *r, PLINT *g, PLINT *b, PLINT *ncol1)
  376. {
  377.     c_plscmap1(r, g, b, *ncol1);
  378. }
  379.  
  380. void
  381. PLSCMAP0N(PLINT *n)
  382. {
  383.     c_plscmap0n(*n);
  384. }
  385.  
  386. void
  387. PLSCMAP1L(PLINT *itype, PLINT *npts, PLFLT *intensity,
  388.       PLFLT *coord1, PLFLT *coord2, PLFLT *coord3)
  389. {
  390.     c_plscmap1l(*itype, *npts, intensity, coord1, coord2, coord3);
  391. }
  392.  
  393. void
  394. PLSCOL0(PLINT *icol0, PLINT *r, PLINT *g, PLINT *b)
  395. {
  396.     c_plscol0(*icol0, *r, *g, *b);
  397. }
  398.  
  399. void
  400. PLSCOLBG(PLINT *r, PLINT *g, PLINT *b)
  401. {
  402.     c_plscolbg(*r, *g, *b);
  403. }
  404.  
  405. void
  406. PLSCOLOR(PLINT *color)
  407. {
  408.     c_plscolor(*color);
  409. }
  410.  
  411. void
  412. PLSDEV7(char *dev)
  413. {
  414.     c_plsdev(dev);
  415. }
  416.  
  417. void
  418. PLSESC7(PLINT *esc)
  419. {
  420.     c_plsesc((char) *esc);
  421. }
  422.  
  423. void
  424. PLSFAM(PLINT *fam, PLINT *num, PLINT *bmax)
  425. {
  426.     c_plsfam(*fam, *num, *bmax);
  427. }
  428.  
  429. void
  430. PLSFNAM7(char *fnam)
  431. {
  432.     c_plsfnam(fnam);
  433. }
  434.  
  435. void
  436. PLSLPB(PLINT *xmi, PLINT *xma, PLINT *ymi, PLINT *yma)
  437. {
  438.     c_plslpb(*xmi, *xma, *ymi, *yma);
  439. }
  440.  
  441. void
  442. PLSMAJ(PLFLT *def, PLFLT *scale)
  443. {
  444.     c_plsmaj(*def, *scale);
  445. }
  446.  
  447. void
  448. PLSMIN(PLFLT *def, PLFLT *scale)
  449. {
  450.     c_plsmin(*def, *scale);
  451. }
  452.  
  453. void
  454. PLSORI(PLINT *ori)
  455. {
  456.     c_plsori(*ori);
  457. }
  458.  
  459. void
  460. PLSPAGE(PLFLT *xpmm, PLFLT *ypmm,
  461.     PLINT *xwid, PLINT *ywid, PLINT *xoff, PLINT *yoff)
  462. {
  463.     c_plspage(*xpmm, *ypmm, *xwid, *ywid, *xoff, *yoff);
  464. }
  465.  
  466. void
  467. PLSPAUSE(PLINT *pause)
  468. {
  469.     c_plspause(*pause);
  470. }
  471.  
  472. void
  473. PLSSTRM(PLINT *strm)
  474. {
  475.     c_plsstrm(*strm);
  476. }
  477.  
  478. void
  479. PLSSUB(PLINT *nx, PLINT *ny)
  480. {
  481.     c_plssub(*nx, *ny);
  482. }
  483.  
  484. void
  485. PLSSYM(PLFLT *def, PLFLT *scale)
  486. {
  487.     c_plssym(*def, *scale);
  488. }
  489.  
  490. void
  491. PLSTAR(PLINT *nx, PLINT *ny)
  492. {
  493.     c_plstar(*nx, *ny);
  494. }
  495.  
  496. void
  497. PLSTART7(char *devname, PLINT *nx, PLINT *ny)
  498. {
  499.     c_plstart(devname, *nx, *ny);
  500. }
  501.  
  502. void
  503. PLSTYL(PLINT *n, PLINT *mark, PLINT *space)
  504. {
  505.     c_plstyl(*n, mark, space);
  506. }
  507.  
  508. void
  509. PLSVPA(PLFLT *xmin, PLFLT *xmax, PLFLT *ymin, PLFLT *ymax)
  510. {
  511.     c_plsvpa(*xmin, *xmax, *ymin, *ymax);
  512. }
  513.  
  514. void
  515. PLSXAX(PLINT *digmax, PLINT *digits)
  516. {
  517.     c_plsxax(*digmax, *digits);
  518. }
  519.  
  520. void
  521. PLSYAX(PLINT *digmax, PLINT *digits)
  522. {
  523.     c_plsyax(*digmax, *digits);
  524. }
  525.  
  526. void
  527. PLSYM(PLINT *n, PLFLT *x, PLFLT *y, PLINT *code)
  528. {
  529.     c_plsym(*n, x, y, *code);
  530. }
  531.  
  532. void
  533. PLSZAX(PLINT *digmax, PLINT *digits)
  534. {
  535.     c_plszax(*digmax, *digits);
  536. }
  537.  
  538. void
  539. PLTEXT()
  540. {
  541.     c_pltext();
  542. }
  543.  
  544. void
  545. PLVASP(PLFLT *aspect)
  546. {
  547.     c_plvasp(*aspect);
  548. }
  549.  
  550. void
  551. PLVPAS(PLFLT *xmin, PLFLT *xmax, PLFLT *ymin, PLFLT *ymax, PLFLT *aspect)
  552. {
  553.     c_plvpas(*xmin, *xmax, *ymin, *ymax, *aspect);
  554. }
  555.  
  556. void
  557. PLVPOR(PLFLT *xmin, PLFLT *xmax, PLFLT *ymin, PLFLT *ymax)
  558. {
  559.     c_plvpor(*xmin, *xmax, *ymin, *ymax);
  560. }
  561.  
  562. void
  563. PLVSTA()
  564. {
  565.     c_plvsta();
  566. }
  567.  
  568. void
  569. PLW3D(PLFLT *basex, PLFLT *basey, PLFLT *height,
  570.       PLFLT *xmin, PLFLT *xmax, PLFLT *ymin, PLFLT *ymax,
  571.       PLFLT *zmin, PLFLT *zmax,
  572.       PLFLT *alt, PLFLT *az)
  573. {
  574.     c_plw3d(*basex, *basey, *height,
  575.         *xmin, *xmax, *ymin, *ymax, *zmin, *zmax, *alt, *az);
  576. }
  577.  
  578. void
  579. PLWID(PLINT *width)
  580. {
  581.     c_plwid(*width);
  582. }
  583.  
  584. void
  585. PLWIND(PLFLT *xmin, PLFLT *xmax, PLFLT *ymin, PLFLT *ymax)
  586. {
  587.     c_plwind(*xmin, *xmax, *ymin, *ymax);
  588. }
  589.